home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / vts139b.zip / DEVSPKR.INC < prev    next >
Text File  |  1993-04-11  |  2KB  |  62 lines
  1.  
  2.                 CODESEG
  3.                        
  4. SpkrTabla DB 40h, 40h, 40h, 40h, 40h, 40h, 40h, 40h, 40h, 40h, 3Fh, 3Fh, 3Fh, 3Fh, 3Fh, 3Fh
  5.           DB 3Fh, 3Fh, 3Fh, 3Fh, 3Fh, 3Fh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh, 3Eh
  6.           DB 3Dh, 3Dh, 3Dh, 3Dh, 3Dh, 3Dh, 3Dh, 3Dh, 3Dh, 3Ch, 3Ch, 3Ch, 3Ch, 3Ch, 3Ch, 3Ch
  7.           DB 3Ch, 3Ch, 3Ch, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Bh, 3Ah, 3Ah, 3Ah
  8.           DB 3Ah, 3Ah, 3Ah, 3Ah, 3Ah, 3Ah, 3Ah, 39h, 39h, 39h, 39h, 39h, 39h, 39h, 39h, 39h
  9.           DB 39h, 38h, 38h, 38h, 38h, 38h, 38h, 38h, 38h, 37h, 37h, 37h, 37h, 37h, 36h, 36h
  10.           DB 36h, 36h, 35h, 35h, 35h, 35h, 34h, 34h, 34h, 33h, 33h, 32h, 32h, 31h, 31h, 30h
  11.           DB 30h, 2Fh, 2Eh, 2Dh, 2Ch, 2Bh, 2Ah, 29h, 28h, 27h, 26h, 25h, 24h, 23h, 22h, 21h
  12.           DB 20h, 1Fh, 1Eh, 1Dh, 1Ch, 1Bh, 1Ah, 19h, 18h, 17h, 16h, 15h, 14h, 13h, 12h, 11h
  13.           DB 11h, 10h, 10h, 0Fh, 0Fh, 0Eh, 0Eh, 0Dh, 0Dh, 0Dh, 0Ch, 0Ch, 0Ch, 0Ch, 0Bh, 0Bh
  14.           DB 0Bh, 0Bh, 0Ah, 0Ah, 0Ah, 0Ah, 0Ah, 09h, 09h, 09h, 09h, 09h, 09h, 09h, 09h, 09h
  15.           DB 08h, 08h, 08h, 08h, 08h, 08h, 08h, 08h, 08h, 08h, 08h, 08h, 07h, 07h, 07h, 07h
  16.           DB 07h, 07h, 07h, 06h, 06h, 06h, 06h, 06h, 06h, 06h, 06h, 06h, 06h, 06h, 05h, 05h
  17.           DB 05h, 05h, 05h, 05h, 05h, 05h, 05h, 05h, 04h, 04h, 04h, 04h, 04h, 04h, 04h, 04h
  18.           DB 04h, 04h, 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h, 03h, 02h, 02h, 02h, 02h
  19.           DB 02h, 02h, 02h, 02h, 02h, 01h, 01h, 01h, 01h, 01h, 01h, 01h, 01h, 01h, 01h, 01h
  20.  
  21.  
  22.  
  23. DevSpkrStartRut:
  24.                 MOV     AL,0
  25. SpkrData1:
  26.                 OUT     42h,AL
  27.                 JMP     DeviceStartRutRet
  28.  
  29. DevSpkrRut1 EQU DeviceRut1Ret
  30.  
  31. DevSpkrRut2:
  32.                 XOR     AH,80h
  33.                 MOV     AL,AH
  34.                 MOV     BX,OFFSET SpkrTabla
  35.  
  36.                 DB 2Eh                          ; CS:
  37.                 XLAT
  38.                 MOV     [BYTE PTR CS:SpkrData1-1],AL
  39.  
  40.                 JMP     DeviceRut2Ret
  41.  
  42.  
  43.  
  44.  
  45. PUBLIC DevInitSpkr
  46.  
  47. PROC DevInitSpkr FAR Ster: BYTE, Bits: BYTE
  48.  
  49.                 MOV     AX,OFFSET DevSpkrStartRut
  50.                 MOV     [DeviceStartRut],AX
  51.  
  52.                 MOV     AX,OFFSET DevSpkrRut1
  53.                 MOV     [DeviceRut1],AX
  54.  
  55.                 MOV     AX,OFFSET DevSpkrRut2
  56.                 MOV     [DeviceRut2],AX
  57.  
  58.                 RET
  59.  
  60. ENDP
  61.  
  62.